home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct12020.geo / 00047.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.6 KB  |  87 lines
  1. on startMovie
  2.   Set_CDcounter(2)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   unLoadCast()
  9.   RestoreHilites()
  10. end
  11.  
  12. on TheinitCursor
  13.   initCursorCastNum()
  14.   initCursorList(1)
  15.   set CursorCastNum to getCursor(2)
  16.   cursor([CursorCastNum, CursorCastNum + 1])
  17. end
  18.  
  19. on checkScreenStatus
  20.   CheckRollOver()
  21.   CheckSnakeStatus()
  22.   go(the frame)
  23. end
  24.  
  25. on BlinkNext
  26.   if (the timer > getTimer()) and not soundBusy(2) then
  27.     startTimer()
  28.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  29.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  30.     else
  31.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  32.     end if
  33.   end if
  34. end
  35.  
  36. on stopMovie
  37.   sound stop 1
  38.   setEmptyCursor()
  39. end
  40.  
  41. on GoNextMovie
  42.   PlaySound("GOSOUND.SO1")
  43.   unLoad()
  44.   SaveHilite()
  45.   Add_CDcounter(1)
  46.   set cdNum to Get_CDcounter()
  47.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  48.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  49. end
  50.  
  51. on playTheTSound theTSnd
  52.   PlaySound("NCT12020.s0" & theTSnd)
  53. end
  54.  
  55. on GoNext
  56.   if not get_Disabled() then
  57.     sound stop 2
  58.     if Get_NEXT() = 2 then
  59.       repeat with i = 21 to 23
  60.         puppetSprite(i, 0)
  61.       end repeat
  62.     end if
  63.     if Get_NEXT() = 3 then
  64.       GoNextMovie()
  65.     else
  66.       go("t" & Get_NEXT())
  67.     end if
  68.     Set_NEXT(Get_NEXT() + 1)
  69.   end if
  70. end
  71.  
  72. on Go_To_TheG theG
  73.   go("g" & theG)
  74.   puppetSprite(theG + 20, 1)
  75.   set the castNum of sprite (theG + 20) to the number of cast ("g" & theG & "_V")
  76.   UpdateCursors(25, 2)
  77.   UpdateCursors(26, 2)
  78.   UpdateCursors(27, 3)
  79. end
  80.  
  81. on handleExit
  82.   repeat with i = 25 to 27
  83.     UpdateCursors(i, 0)
  84.   end repeat
  85.   go("t1b")
  86. end
  87.